home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ipack.exe / FTPDIR.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-04-12  |  5.0 KB  |  173 lines
  1. VERSION 4.00
  2. Begin VB.Form frmDirectory 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   3030
  5.    ClientLeft      =   3240
  6.    ClientTop       =   1620
  7.    ClientWidth     =   5745
  8.    ControlBox      =   0   'False
  9.    Height          =   3435
  10.    Left            =   3180
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3030
  16.    ScaleWidth      =   5745
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   1275
  19.    Visible         =   0   'False
  20.    Width           =   5865
  21.    Begin VB.TextBox txtQuote 
  22.       Height          =   285
  23.       Left            =   4080
  24.       TabIndex        =   13
  25.       Top             =   2040
  26.       Width           =   1455
  27.    End
  28.    Begin VB.CommandButton cmdQuote 
  29.       Caption         =   "Quote"
  30.       Height          =   375
  31.       Left            =   3000
  32.       TabIndex        =   12
  33.       Top             =   2040
  34.       Width           =   975
  35.    End
  36.    Begin VB.TextBox txtPattern 
  37.       Height          =   285
  38.       Left            =   4080
  39.       TabIndex        =   11
  40.       Top             =   360
  41.       Width           =   1335
  42.    End
  43.    Begin VB.TextBox txtDirectory 
  44.       Height          =   285
  45.       Left            =   1320
  46.       TabIndex        =   8
  47.       Top             =   360
  48.       Width           =   1335
  49.    End
  50.    Begin VB.CommandButton cmdDirList 
  51.       Caption         =   "DirList"
  52.       Height          =   375
  53.       Left            =   3000
  54.       TabIndex        =   7
  55.       Top             =   360
  56.       Width           =   975
  57.    End
  58.    Begin VB.CommandButton cmdGetCurrentDirectory 
  59.       Caption         =   "GetCurDir"
  60.       Height          =   375
  61.       Left            =   240
  62.       TabIndex        =   6
  63.       Top             =   2040
  64.       Width           =   975
  65.    End
  66.    Begin VB.CommandButton cmdChangeDir 
  67.       Caption         =   "ChangeDir"
  68.       Height          =   375
  69.       Left            =   240
  70.       TabIndex        =   5
  71.       Top             =   360
  72.       Width           =   975
  73.    End
  74.    Begin VB.CommandButton cmdCdup 
  75.       Caption         =   "ParentDir"
  76.       Height          =   375
  77.       Left            =   240
  78.       TabIndex        =   4
  79.       Top             =   2520
  80.       Width           =   975
  81.    End
  82.    Begin VB.CommandButton cmdMakeDir 
  83.       Caption         =   "MakeDir"
  84.       Height          =   375
  85.       Left            =   240
  86.       TabIndex        =   3
  87.       Top             =   840
  88.       Width           =   975
  89.    End
  90.    Begin VB.TextBox txtMakeDir 
  91.       Height          =   285
  92.       Left            =   1320
  93.       TabIndex        =   2
  94.       Top             =   840
  95.       Width           =   1335
  96.    End
  97.    Begin VB.CommandButton cmdDelDir 
  98.       Caption         =   "DelDir"
  99.       Height          =   375
  100.       Left            =   240
  101.       TabIndex        =   1
  102.       Top             =   1320
  103.       Width           =   975
  104.    End
  105.    Begin VB.TextBox txtDelDir 
  106.       Height          =   285
  107.       Left            =   1320
  108.       TabIndex        =   0
  109.       Top             =   1320
  110.       Width           =   1335
  111.    End
  112.    Begin VB.Label Label3 
  113.       Caption         =   "Command:"
  114.       Height          =   255
  115.       Left            =   4080
  116.       TabIndex        =   14
  117.       Top             =   1800
  118.       Width           =   975
  119.    End
  120.    Begin VB.Label Label2 
  121.       Caption         =   "Pattern:"
  122.       Height          =   255
  123.       Left            =   4080
  124.       TabIndex        =   10
  125.       Top             =   120
  126.       Width           =   975
  127.    End
  128.    Begin VB.Label Label1 
  129.       Caption         =   "Directory:"
  130.       Height          =   255
  131.       Left            =   1320
  132.       TabIndex        =   9
  133.       Top             =   120
  134.       Width           =   1335
  135.    End
  136. Attribute VB_Name = "frmDirectory"
  137. Attribute VB_Creatable = False
  138. Attribute VB_Exposed = False
  139. Private Sub cmdCdup_Click()
  140.     ClearListDir
  141.     MainForm.Ftp1.Action = FtpActionParentDir
  142. End Sub
  143. Private Sub cmdChangeDir_Click()
  144.     Dim s As String
  145.     s = txtDirectory.Text
  146.     If (s <> "") Then
  147.         ClearListDir
  148.         MainForm.Ftp1.Directory = s
  149.         MainForm.Ftp1.Action = FtpActionChangeDir
  150.     End If
  151. End Sub
  152. Private Sub cmdDelDir_Click()
  153.     MainForm.Ftp1.Directory = txtDelDir.Text
  154.     MainForm.Ftp1.Action = FtpActionDeleteDir
  155. End Sub
  156. Private Sub cmdDirList_Click()
  157.     ClearListDir
  158.     MainForm.Ftp1.Pattern = txtPattern.Text
  159.     MainForm.Ftp1.Action = FtpActionGetDirList
  160. '    MainForm.Ftp1.Action = FtpActionGetFilenameList
  161. End Sub
  162. Private Sub cmdMakeDir_Click()
  163.     MainForm.Ftp1.Directory = txtMakeDir.Text
  164.     MainForm.Ftp1.Action = FtpActionCreateDir
  165. End Sub
  166. Private Sub cmdGetCurrentDirectory_Click()
  167.     MainForm.Ftp1.Action = FtpActionGetCurrentDir
  168. End Sub
  169. Private Sub cmdQuote_Click()
  170.     MainForm.Ftp1.QuoteCmd = txtQuote.Text
  171.     MainForm.Ftp1.Action = FtpActionQuote
  172. End Sub
  173.